home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PASSRC.ZIP / GARDEN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-04  |  1.1 KB  |  38 lines
  1.                                        (* Chapter 13 - Program 3 *)
  2. program Garden;
  3. (*****************************************************************)
  4. (*                                                               *)
  5. (* This program calculates how much area there is to plow in a   *)
  6. (* circular garden, and how long the wall will be around it.     *)
  7. (*                                                               *)
  8. (*****************************************************************)
  9.  
  10. uses Areas, Perims;
  11.  
  12. var Radius, Area, Circumference : real;
  13.  
  14. begin
  15.    Radius := 12.0;
  16.    Area := Area_Of_Circle(Radius);
  17.    Perimeter_Of_Circle(Radius,Circumference);
  18.  
  19.               (* Calculations complete, output results *)
  20.  
  21.    Writeln('The radius of the garden is ',Radius:6:1,' feet.');
  22.    Writeln('The area to plow is ',Area:6:1,' square feet.');
  23.    Writeln('A wall around the garden will be ',Circumference:6:1,
  24.                   ' feet long.');
  25.    Writeln;
  26. end.
  27.  
  28.  
  29.  
  30.  
  31. { Result of execution
  32.  
  33. The radius of the garden is   12.0 feet.
  34. The area to plow is  452.4 square feet.
  35. A wall around the garden will be  75.4 feet long.
  36.  
  37. }
  38.